(split-string): Fix minor bug.

diff --git a/lisp/subr.el b/lisp/subr.el
index 30b5ca6703d3861935bca6801177cae6ecd2a37c..a3357c7186353da98a107bb3d929ffbbed2a5c03 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -789,7 +789,7 @@ If SEPARATORS is absent, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
        (start 0)
        (list nil))
     (while (string-match rexp string start)
-      (or (eq start 0)
+      (or (eq (match-beginning 0) 0)
          (setq list
                (cons (substring string start (match-beginning 0))
                      list)))